rm -f vecfun.c
( echo ",batch"; \
  echo ",in forms (set! *duplicate-lambda-size* -1)"; \
  echo "(prescheme-compiler 'vecfun '(\"packages.scm\") 'vecfun-init \"vecfun.c\")"; \
  echo ",exit" ) \
| prescheme
Maximum heap size 4000000 is too small, using 5419008 cells instead.
Welcome to Scheme 48 1.9.2 (Pre-Scheme 1.9.2)
See http://s48.org/ for more information.
Please report bugs to scheme-48-bugs@s48.org.
Get more information at http://www.s48.org/.
Type ,? (comma question-mark) for help.
> will not prompt and will exit on errors
#{Unspecific}
packages.scm
 lib/ps-string.scm lib/ps-vector.scm vecfun.scmChecking types
 string-copy! : ((*char integer *char integer integer) -> unit)
 vector-fold1 : (for-all (T10 T7) ((((integer T7 T10) -> T7) T7 *T10 integer) -> T7))
 %static-init (constant): (() -> null)
 %vec-a (consed): *integer
 %len-a (constant): integer
 min0 : ((integer integer) -> integer)
 string-repeat : ((*char integer) -> *char)
 vector-map1 : (for-all (T32) ((((integer T32) -> *char) *T32 integer) -> **char))
 vector-for-each1 : (for-all (T38 T39) ((((integer T38) -> T39) *T38 integer) -> unit))
 vector-fold2 : (for-all (T47 T46 T41) ((((integer T41 T46 T47) -> T41) T41 *T46 integer *T47 integer) -> T41))
 vector-map2 : (for-all (T60 T60) ((((integer T60 T60) -> integer) *T60 integer *T60 integer) -> *integer))
 main : (() -> integer)
In-lining single-use procedures
Type error in make-monomorphic!
 type mismatch
 integer
 unit
error: type problem [error]
make: *** [Makefile:22: vecfun.c] Error 1
